home *** CD-ROM | disk | FTP | other *** search
- object Form3: TForm3
- Left = 230
- Top = 106
- BorderIcons = []
- BorderStyle = bsNone
- Caption = 'Acceptable Use Policy'
- ClientHeight = 434
- ClientWidth = 612
- Color = clSilver
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label3: TLabel
- Left = 96
- Top = 96
- Width = 3
- Height = 13
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 612
- Height = 434
- Align = alClient
- BevelInner = bvRaised
- BorderStyle = bsSingle
- TabOrder = 0
- object AHMFillBackground1: TAHMFillBackground
- Left = 2
- Top = 2
- Width = 604
- Height = 426
- Background = AHMBackground1
- Align = alClient
- end
- object Image1: TImage
- Left = 278
- Top = 8
- Width = 41
- Height = 41
- Picture.Data = {<image001.ico>}
- Transparent = True
- end
- object Label1: TLabel
- Left = 39
- Top = 49
- Width = 522
- Height = 19
- Caption =
- 'Attention: You must agree to the ACCEPTABLE USE POLICY below bef' +
- 'ore'
- Color = clSilver
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label2: TLabel
- Left = 180
- Top = 70
- Width = 242
- Height = 19
- Caption = 'being allowed to use this computer:'
- Color = clSilver
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Memo1: TMemo
- Left = 16
- Top = 96
- Width = 575
- Height = 248
- TabStop = False
- Color = clWhite
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object BitBtn1: TBitBtn
- Left = -408
- Top = 303
- Width = 179
- Height = 41
- Caption = 'Agree'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = BitBtn1Click
- end
- object BitBtn2: TBitBtn
- Left = -184
- Top = 302
- Width = 177
- Height = 41
- Caption = 'Disagree'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = BitBtn2Click
- end
- object AHMButton1: TAHMButton
- Left = 82
- Top = 349
- Width = 439
- Height = 33
- Glyph.TransparentColor = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Caption =
- 'I understand and agree to follow the above acceptable use policy' +
- '.'
- ButtonSunk = True
- Background = AHMBackground2
- OnClick = AHMButton1Click
- ParentFont = False
- TabOrder = 3
- TabStop = True
- end
- object AHMButton2: TAHMButton
- Left = 82
- Top = 388
- Width = 439
- Height = 33
- Glyph.TransparentColor = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Caption = 'I do NOT agree to the above acceptable use policy.'
- ButtonSunk = True
- Background = AHMBackground2
- OnClick = AHMButton2Click
- ParentFont = False
- TabOrder = 4
- TabStop = True
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 400
- OnTimer = Timer1Timer
- Left = 16
- Top = 8
- end
- object AHMBackground1: TAHMBackground
- Gradient.BeginColor = clWhite
- Gradient.EndColor = clNavy
- Gradient.FillStyle = MiddleHBar
- Gradient.ColorCount = 250
- Left = 432
- Top = 16
- end
- object AHMBackground2: TAHMBackground
- Gradient.BeginColor = clWhite
- Gradient.EndColor = clGray
- Left = 488
- Top = 16
- end
- end
-